home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / CAGD_DBG.C < prev    next >
C/C++ Source or Header  |  1991-09-25  |  1KB  |  38 lines
  1. /******************************************************************************
  2. * Cagd_dbg.c - Provide a routine to print Surface/Curve objects to stderr.    *
  3. *******************************************************************************
  4. * Written by Gershon Elber, Sep. 91.                          *
  5. ******************************************************************************/
  6.  
  7. #include "cagd_loc.h"
  8.  
  9. /******************************************************************************
  10. * Prints curves and surfaces to stderr.                          *
  11. ******************************************************************************/
  12. void CagdDbg(void *Obj)
  13. {
  14.     char *ErrorMsg;
  15.     CagdCrvStruct
  16.     *Crv = (CagdCrvStruct *) Obj;
  17.     CagdSrfStruct
  18.     *Srf = (CagdSrfStruct *) Obj;
  19.     CagdGeomType 
  20.     GType = Crv -> GType;
  21.  
  22.     switch (GType) {
  23.     case CAGD_CBEZIER_TYPE:
  24.     case CAGD_CBSPLINE_TYPE:
  25.     case CAGD_CPOWER_TYPE:
  26.         CagdCrvWriteToFile2(Crv, stderr, 0, "CagdDbg", &ErrorMsg);
  27.         break;
  28.     case CAGD_SBEZIER_TYPE:
  29.     case CAGD_SBSPLINE_TYPE:
  30.     case CAGD_SPOWER_TYPE:
  31.         CagdSrfWriteToFile2(Srf, stderr, 0, "CagdDbg", &ErrorMsg);
  32.         break;
  33.     }
  34.  
  35.     if (ErrorMsg)
  36.     fprintf(stderr, "CagdDbg Error: %s\n", ErrorMsg);
  37. }
  38.